home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / RADIAN.P < prev    next >
Text File  |  1990-09-13  |  884b  |  40 lines
  1. temp <- <primitive 110 8 >
  2. <primitive 112 temp 1        " printString " \
  3.     #( #[ 16 10 16 48 11 17 243 245] \
  4.     #( ' radians'  ) ) >
  5.  
  6. <primitive 112 temp 2        " asFloat " \
  7.     #( #[ 16 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " tan " \
  11.     #( #[ 16 250 1 81 16 250 1 82 190 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " cos " \
  15.     #( #[ 16 250 1 82 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " sin " \
  19.     #( #[ 16 250 1 81 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " = " \
  23.     #( #[ 16 33 175 201 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " < " \
  27.     #( #[ 16 33 175 199 243 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 112 temp 8        " new: " \
  31.     #( #[ 33 175 250 1 80 96 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 98 #Radian \
  35.     <primitive 97 #Radian #Magnitude #\smalltlk\prelude\radian.st \
  36.     #(  #value ) \
  37.     #( #printString #asFloat #tan #cos #sin #= #< #new:  ) \
  38.     temp 2 3 > >
  39.  
  40.